home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -coverdisks- / 126a / football / user / matchanalysis.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-22  |  12KB  |  397 lines
  1. /* ***********************************************************************
  2.  
  3.    MATCH ANALYSIS FOR FOOTBALL REXX SUITE
  4.   ----------------------------------------
  5.                    Copyright  Mark Naughton 1997
  6.  
  7.  
  8. Version    Date     History
  9. --------------------------------------------------------------------------
  10.  1.0       050197   First release.
  11.  1.1       150997   Added code to handle automatic scheduling with dates.
  12.                     As matches are played mid-week, it was better to get
  13.                     all the games in a 7-day period than just reading the
  14.                     Learn file where they are grouped together in the
  15.                     number of teams divide by 2 (some games would be outside
  16.                     this 7-day period). Amended displays.
  17.  1.2       250997   Amended displays of highest/lowest because when using
  18.                     dates, these still gave the week numbers. Routine that
  19.                     calculates the date for the listing is now a callable
  20.                     procedure. Fixed bug where the program expected games
  21.                     to be played every week and added games to weeks that
  22.                     had no games played - the range wasn't incremented
  23.                     enough.
  24.            151297   Tidied display. Added average number of goals per
  25.                     game for highest/lowest.
  26.  
  27. **************************************************************************
  28.  
  29. Procedure
  30. ---------
  31.  
  32. 1. Check files exist. Read Teams.df datafile and store league name.
  33. 2. If automatic scheduling, open Schedule definition file and store
  34.    whether it is run by WEEKS or DATES.
  35. 3. Open Learn file if WEEKS or non-auto sched and get statistics for
  36.    each match for each week. Close file.
  37. 4. Open '.sf' file if DATES and get statistics for each match for each
  38.    week. Increase the range from the start date as the file goes on, adding
  39.    7 days. Close file.
  40. 5. Get the highest and lowest scoring weeks.
  41. 6. Display data and exit.
  42.  
  43. ************************************************************************** */
  44. PARSE ARG league_stuff
  45.  
  46. version      = 1
  47. input_file   = '.df'
  48. input2_file  = '.sflearn'
  49. input3_file  = '.sf'
  50. title        = '*LEAGUE_NAME='
  51. autosched    = '*AUTOSCHD='
  52. separator    = '*'
  53. games.       = '???'
  54. homew.       = '???'
  55. awayw.       = '???'
  56. draws.       = '???'
  57. losses.      = '???'
  58. goalss.      = '???'
  59. weeks        = 0
  60. weekend.     = '???'
  61. months       = "January February March April May June July August September October November December"
  62. not_played   = '__   __'
  63.  
  64.  
  65. parse var league_stuff league_file
  66. league_file = "Data/" || league_file
  67.  
  68. if exists(league_file || input_file) = 0  then exit
  69. if exists(league_file || input2_file) = 0  then exit
  70. if exists(league_file || input3_file) = 0  then exit
  71.  
  72. autos = 0
  73. if open(datafile,league_file || input_file,'r') then do
  74.    do while ~eof(datafile)
  75.       line = readln(datafile)
  76.       if pos(title,line) > 0 then
  77.          league_title = delstr(line,1,13)
  78.       if pos(autosched,line) > 0 then do
  79.          autofile = delstr(line,1,10)
  80.          autos = 1
  81.       end
  82.    end
  83.    close(datafile)
  84. end
  85. else do
  86.    say
  87.    say "ERROR :    (MatchAnalysis)"
  88.    say
  89.    say "Cannot read '"league_file || input_file"' for league name."
  90.    exit
  91. end
  92.  
  93. type = 0
  94. if autos = 1 then do
  95.    if open(datafile,"Data/"||autofile||".schd",'r') then do
  96.       line = readln(datafile)
  97.       if pos("*WEEKS",line) > 0 then
  98.          type = 10
  99.       if pos("*DATES",line) > 0 then do
  100.          type = 20
  101.          start_date = substr(line,8,8)
  102.       end
  103.       close(datafile)
  104.    end
  105.    else do
  106.       say
  107.       say "ERROR :    (MatchAnalysis)"
  108.       say
  109.       say "Cannot read 'Data/"autofile".schd' to check what type of"
  110.       say "schedule it is."
  111.       exit
  112.    end
  113. end
  114.                           /* use this method if its WEEKS or non-auto sched. */
  115. if type < 20 then do
  116.    if open(datafile,league_file || input2_file,'r') then do
  117.       do while ~eof(datafile)
  118.          line = readln(datafile)
  119.          if pos(separator,line) = 0 then do
  120.             if pos(separator,sep) > 0 then do
  121.                weeks = weeks + 1
  122.                sep = ''
  123.                games.weeks = 0
  124.                homew.weeks = 0
  125.                awayw.weeks = 0
  126.                draws.weeks = 0
  127.                losses.weeks = 0
  128.                goalss.weeks = 0
  129.                goals_for = 0
  130.                goals_aga = 0
  131.                goals = 0
  132.             end
  133.             goals_for = strip(substr(line,32,2))
  134.             goals_aga = strip(substr(line,37,2))
  135.             if datatype(goals_for,'n') = 0 | datatype(goals_aga,'n') = 0 then
  136.                leave
  137.             games.weeks = games.weeks + 1
  138.             goalss.weeks = goalss.weeks + goals_for + goals_aga
  139.  
  140.             if goals_for > goals_aga then do
  141.                homew.weeks = homew.weeks + 1
  142.                losses.weeks= losses.weeks + 1
  143.             end
  144.             if goals_for = goals_aga then do
  145.                draws.weeks = draws.weeks + 1
  146.             end
  147.             if goals_for < goals_aga then do
  148.                awayw.weeks = awayw.weeks + 1
  149.                losses.weeks= losses.weeks + 1
  150.             end
  151.          end
  152.          else
  153.             sep = line
  154.       end
  155.       close(datafile)
  156.    end
  157.    else do
  158.       say
  159.       say "ERROR :    (MatchAnalysis)"
  160.       say
  161.       say "Cannot read '"league_file || input2_file"' datafile."
  162.       exit
  163.    end
  164. end                      /* DATES and automatic scheduling */
  165.  
  166. if type = 20 then do
  167.    weeks = 1
  168.    mnth = substr(start_date,3,2)
  169.    ndate= substr(start_date,5,4)||mnth||substr(start_date,1,2)
  170.    range = date('b',ndate,'s')
  171.    range = range + 6
  172.    games.weeks = 0
  173.    weekend.weeks = range
  174.    homew.weeks = 0
  175.    awayw.weeks = 0
  176.    draws.weeks = 0
  177.    losses.weeks = 0
  178.    goalss.weeks = 0
  179.    goals_for = 0
  180.    goals_aga = 0
  181.    goals = 0
  182.    if open(datafile,league_file || input3_file,'r') then do
  183.       do while ~eof(datafile)
  184.          line = readln(datafile)
  185.          if pos(separator,line) > 0 then do
  186.             if pos("*Date:",line) > 0 then do
  187.                year = word(line,5)
  188.                mnth = word(line,4)
  189.                day  = word(line,3)
  190.                cv = 0
  191.                do i=1 to 12
  192.                   if pos(mnth,word(months,i)) > 0 then do
  193.                      cv = i
  194.                      leave
  195.                   end
  196.                end
  197.                sd   = year||right(cv,2,0)||right(day,2,0)
  198.                search_date = date('b',sd,'s')
  199.  
  200.                if search_date > range then do
  201.                   range = range + 7
  202.                   diff  = 1
  203.                                                /* this hopes to skip weeks where no games are played. */
  204.                   do while (diff > 0)
  205.                      diff = search_date - range
  206.                      if diff > 0 then
  207.                         range = range + 7
  208.                   end
  209.  
  210.                   weeks = weeks + 1
  211.                   games.weeks = 0
  212.                   weekend.weeks = range
  213.                   homew.weeks = 0
  214.                   awayw.weeks = 0
  215.                   draws.weeks = 0
  216.                   losses.weeks = 0
  217.                   goalss.weeks = 0
  218.                   goals_for = 0
  219.                   goals_aga = 0
  220.                   goals = 0
  221.                end
  222.             end
  223.          end
  224.          if pos(separator,line) = 0 & pos(not_played,line) = 0 then do
  225.             goals_for = strip(substr(line,32,2))
  226.             goals_aga = strip(substr(line,37,2))
  227.             if datatype(goals_for,'n') > 0 & datatype(goals_aga,'n') > 0 then do
  228.  
  229.                games.weeks = games.weeks + 1
  230.                goalss.weeks = goalss.weeks + goals_for + goals_aga
  231.  
  232.                if goals_for > goals_aga then do
  233.                   homew.weeks = homew.weeks + 1
  234.                   losses.weeks= losses.weeks + 1
  235.                end
  236.                if goals_for = goals_aga then do
  237.                   draws.weeks = draws.weeks + 1
  238.                end
  239.                if goals_for < goals_aga then do
  240.                   awayw.weeks = awayw.weeks + 1
  241.                   losses.weeks= losses.weeks + 1
  242.                end
  243.             end
  244.          end
  245.       end
  246.       close(datafile)
  247.    end
  248.    else do
  249.       say
  250.       say "ERROR :    (MatchAnalysis)"
  251.